Input 64/Input_64_85-04_1985_Verlag_Heinz_Weise_de.d64/H I L F S P R O

Commodore BASIC | 2023-02-26 | 5KB | 64 lines

1 poke50257,8:poke50259,208:poke50260,017:poke50261,236:poke50262,027
5 t$="[147][153]   [200][201][204][198][211][208][210][207][199][210][193][205][205]: [203][193][211][211][197][212][212][197][206]-[196][201][210][197][195][212][207][210][217]   [146][158]"
10 poke53280,11:poke53281,11:print"[147][158]"chr$(14)chr$(8);
20 printt$"[203]assettenberge ohne [194]eschriftung,"
30 print"stundenlanges [211]uchen nach einem bestimm-";
40 print"ten [208]rogramm und so weiter..."
50 print:print"[196]as [208]rogramm [203][193][211][211][197][212][212][197][206]-[196][201][210][197][195][212][207][210][217] macht"
60 print"dem ein [197]nde. [215]enn [211]ie es mit [195][212][210][204] & s"
70 print"aus dem [205]agazin heraus abgespeichert"
80 print"haben, laden [211]ie es vom eigenen [196]aten-"
90 print"traeger ein und starten es wie gewohnt"
100 print"mit [210][213][206].":print
110 print"[196]urchsucht werden koennen [203]assetten,"
120 print"die mit [211]uper[212]ape bespielt worden sind"
130 print"(s waehlen, [211]upertape muss vorher ge-"
140 print"laden sein!) und [203]assetten mit [208]rogram-"
150 print"men, die im [195]ommodore-[198]ormat aufgezeich-";
160 print"net wurden (c druecken)."
170 print:print"[196]urchsuchen [211]ie keine [205]ischkassetten,"
180 print"dies kann zu [208]rogrammabstuerzen fuehren.";
190 gosub20000
200 printt$"[201]hre [203]assette mit den vielen unbekannten";
210 print"[208]rogrammen haben sie eingelegt, dann "
220 print"entweder c oder s gewaehlt und die [208][204][193][217]-";
230 print"[212]aste nach [193]ufforderung gedrueckt.":print
240 print"[196]er [194]ildschirm geht aus, es geschieht"
250 print"zunaechst nichts.":print
260 print"[215]ie kommen [211]ie vom [205]odus '[196]urchsuchen"
270 print"des [194]andes' zur gewuenschten [194]ildschirm-";
280 print"oder [196]ruckerausgabe?"
290 gosub20000
300 printt$;"[215]enn [211]ie c gewaehlt hatten, dann druek-"
310 print"ken [211]ie die [210][213][206]/[211][212][207][208]-[212]aste."
320 print:print"[196]as [208]rogramm springt dann in die [194]ild-"
330 print"schirmausgabe.":print
340 print"[195]ommodore-[203]assetten: [210][213][206]/[211][212][207][208]-[212][193][211][212][197][146][158]":print
350 print:print:print"[194]eim [211]uchlauf nach [211]uper[212]ape-[208]rogrammen"
360 print"koennen [211]ie am [194]andende durch gleichzei-";
370 print"tiges [196]ruecken von [210][197][211][212][207][210][197] und [211][200][201][198][212]":print"anhalten.":print
385 print"[211]uper[212]ape-[203]assetten: [210][197][211][212][207][210][197] & [211][200][201][198][212][146][158]"
399 gosub20000
400 printt$;"[193]usgegeben werden [208]rogrammtyp ([194][193][211][201][195]-"
410 print"bzw. [205]aschinenprogramm), [204]aenge und"
420 print"[211]tartadresse des [208]rogramms."
430 print:print"[197]ine genaue [194]eschreibung der [193]uswertung"
440 print"finden [211]ie im [194]eiheft.":print
450 print"[211]ie koennen sich die [197]rgebnisse auch auf";
460 print"dem [196]rucker ausgeben lassen. [211]tellen [211]ie";
470 print"aber vorher bitte sicher, dass dieser"
480 print"auch angeschlossen und eingeschaltet"
490 print"ist.":print
492 print"[206]och ein [200]inweis: [196]ie [193]nzahl der [208]ro-"
494 print"gramme pro [194]andseite ist beschraenkt"
496 print"auf 100. [196]as duerfte aber in den meisten";
498 print"[198]aellen ausreichen.":print
600 gosub20000:run
20000 poke198,0:fl=0:z$="[146]>"
20005 poke211,24:poke214,24:sys58640:print"[153][215]eiter: [212]aste[146][158]";
20010 poke211,22:poke214,24:sys58640:printz$;
20020 fori=0to080:getw$:ifw$theni=200:fl=1
20030 next:ifflthenreturn
20040 ifz$="[146]>"thenz$=">":goto20010
20050 z$="[146]>":goto20010